home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
fortran
/
f2c_src.zip
/
F2C
/
LIBI77
/
ILNW.C
< prev
next >
Wrap
C/C++ Source or Header
|
1991-06-10
|
861b
|
63 lines
#include "f2c.h"
#include "fio.h"
#include "lio.h"
extern char *icptr;
extern char *icend;
extern icilist *svic;
extern int icnum;
extern int (*donewrec)();
extern int z_putc(), l_write();
static int
z_wSL()
{
extern int z_rnew();
while(recpos < svic->icirlen)
z_putc(' ');
return z_rnew();
}
int
c_liw(a)
icilist *a;
{
reading = 0;
external = 0;
formatted = 1;
putn = z_putc;
L_len = a->icirlen;
donewrec = z_wSL;
svic = a;
icnum = recpos = 0;
cursor = 0;
cf = 0;
curunit = 0;
icptr = a->iciunit;
icend = icptr + a->icirlen*a->icirnum;
}
s_wsni(a)
icilist *a;
{
cilist ca;
c_liw(a);
ca.cifmt = a->icifmt;
x_wsne(&ca);
z_wSL();
return 0;
}
integer s_wsli(a) icilist *a;
{
lioproc = l_write;
c_liw(a);
return(0);
}
integer e_wsli()
{
z_wSL();
return(0);
}